Digital Competence Insights
  • Dimensions
    • Strategic Information
    • Critical Information
    • Netiquette
    • Digital Content Creation
    • Safety
    • Digital Health
    • Green Digital
    • Digital Problem Solving
    • Transactional
    • AI
    • Gen AI
  • Skills
  • Performance
  • Knowledge
  • Highlights
  • About

Transactional

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Transactional Skills cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.

Transactional Skills

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5

Transactional Knowledge

Transactional Skills cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2

Transactional Performance

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 1
  • Question 1
  • Question 1
Back to top
Source Code
---
title: "{{< iconify ph wallet-fill >}} Transactional"
format: html
---

```{r}
#| include: false
library(dashboardr)
```

**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**

**Transactional Skills** cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.

```{r setup}
#| echo: false
#| warning: false
#| message: false
#| error: false
#| results: 'hide'

# Load required libraries
library(dashboardr)
library(dplyr)
library(highcharter)

# Global chunk options
knitr::opts_chunk$set(
  echo = FALSE,
  warning = FALSE,
  message = FALSE,
  error = FALSE,
  fig.width = 12,
  fig.height = 8,
  dpi = 300
)

# Load data from dataset_4014obs.rds
data <- readRDS('dataset_4014obs.rds')

# Data summary
cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')

# Create filtered datasets
# Each filter is applied once and reused across visualizations

data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)
data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)

```

## {{< iconify ph lightning-fill >}} Transactional Skills


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r trans-wave1-overall-2}
# Transactional Skills
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Strans1, Strans2, Strans3, Strans4, Strans5),
  title = "Transactional Skills",
  questions = c("Strans1", "Strans2", "Strans3", "Strans4", "Strans5"),
  question_labels = c("I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", "I know how to apply for a DigID and how to use it.", "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card)."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-wave1-age-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans1),
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-wave1-age-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans2),
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-wave1-age-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans3),
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-wave1-age-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans4),
  title = "I know how to apply for a DigID and how to use it.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-wave1-age-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Strans5),
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans5"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-wave1-gender-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans1),
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-wave1-gender-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans2),
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-wave1-gender-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans3),
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-wave1-gender-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans4),
  title = "I know how to apply for a DigID and how to use it.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-wave1-gender-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Strans5),
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans5"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-wave1-edu-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans1),
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-wave1-edu-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans2),
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-wave1-edu-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans3),
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-wave1-edu-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans4),
  title = "I know how to apply for a DigID and how to use it.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-wave1-edu-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Strans5),
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans5"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r trans-wave2-overall-2}
# Transactional Skills
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Strans1, Strans2, Strans3, Strans4, Strans5),
  title = "Transactional Skills",
  questions = c("Strans1", "Strans2", "Strans3", "Strans4", "Strans5"),
  question_labels = c("I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.", "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).", "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).", "I know how to apply for a DigID and how to use it.", "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card)."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-wave2-age-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans1),
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-wave2-age-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans2),
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-wave2-age-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans3),
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-wave2-age-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans4),
  title = "I know how to apply for a DigID and how to use it.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-wave2-age-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Strans5),
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Strans5"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-wave2-gender-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans1),
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-wave2-gender-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans2),
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-wave2-gender-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans3),
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-wave2-gender-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans4),
  title = "I know how to apply for a DigID and how to use it.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-wave2-gender-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Strans5),
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Strans5"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-wave2-edu-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans1),
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-wave2-edu-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans2),
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-wave2-edu-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans3),
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-wave2-edu-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans4),
  title = "I know how to apply for a DigID and how to use it.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-wave2-edu-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Strans5),
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Strans5"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-overtime-overall-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_timeline(
  data = data,
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "Strans1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-overtime-overall-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_timeline(
  data = data,
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "Strans2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-overtime-overall-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_timeline(
  data = data,
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "Strans3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-overtime-overall-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_timeline(
  data = data,
  title = "I know how to apply for a DigID and how to use it.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "Strans4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-overtime-overall-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_timeline(
  data = data,
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "Strans5"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-overtime-age-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_timeline(
  data = data,
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-overtime-age-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_timeline(
  data = data,
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-overtime-age-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_timeline(
  data = data,
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans3",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-overtime-age-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_timeline(
  data = data,
  title = "I know how to apply for a DigID and how to use it.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans4",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-overtime-age-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_timeline(
  data = data,
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans5",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-overtime-gender-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_timeline(
  data = data,
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-overtime-gender-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_timeline(
  data = data,
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-overtime-gender-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_timeline(
  data = data,
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans3",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-overtime-gender-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_timeline(
  data = data,
  title = "I know how to apply for a DigID and how to use it.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans4",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-overtime-gender-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_timeline(
  data = data,
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans5",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r trans-overtime-edu-item1-2}
# I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.
result <- create_timeline(
  data = data,
  title = "I know how to handle things online for the tax authority ('belastingdienst') (for example file my tax returns or apply for a wage tax for my (part-time) job.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r trans-overtime-edu-item2-2}
# I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).
result <- create_timeline(
  data = data,
  title = "I know how to do digital payments on the computer or smartphone (for example online banking, online shopping, using iDeal).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r trans-overtime-edu-item3-2}
# I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).
result <- create_timeline(
  data = data,
  title = "I know how to arrange my healthcare online (for example take out a health insurance or make an online appointment with the general practitioner).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans3",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r trans-overtime-edu-item4-2}
# I know how to apply for a DigID and how to use it.
result <- create_timeline(
  data = data,
  title = "I know how to apply for a DigID and how to use it.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans4",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r trans-overtime-edu-item5-2}
# I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).
result <- create_timeline(
  data = data,
  title = "I know how to upload documents and images when needed to arrange things online (for example when requesting an OV chip card).",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "Strans5",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph book-open-fill >}} Transactional Knowledge


**Transactional Skills** cover the ability to complete official tasks online: handling tax matters, making digital payments, arranging healthcare, using digital identification (DigID), and uploading documents for online services.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")
```


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r ktrans-wave1-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Ktrans2RC, Ktrans3RC),
  title = "",
  questions = c("Ktrans2RC", "Ktrans3RC"),
  question_labels = c("In case of a medical emergency, you make an online appointment with your healthcare provider.", "A webshop is trustworthy when you can pay with iDeal"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-wave1-age-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Ktrans2RC),
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Ktrans2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-wave1-age-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, Ktrans3RC),
  title = "A webshop is trustworthy when you can pay with iDeal",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Ktrans3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-wave1-gender-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Ktrans2RC),
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Ktrans2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-wave1-gender-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, Ktrans3RC),
  title = "A webshop is trustworthy when you can pay with iDeal",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Ktrans3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-wave1-edu-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Ktrans2RC),
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Ktrans2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-wave1-edu-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, Ktrans3RC),
  title = "A webshop is trustworthy when you can pay with iDeal",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Ktrans3RC"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r ktrans-wave2-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Ktrans2RC, Ktrans3RC),
  title = "",
  questions = c("Ktrans2RC", "Ktrans3RC"),
  question_labels = c("In case of a medical emergency, you make an online appointment with your healthcare provider.", "A webshop is trustworthy when you can pay with iDeal"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-wave2-age-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Ktrans2RC),
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Ktrans2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-wave2-age-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, Ktrans3RC),
  title = "A webshop is trustworthy when you can pay with iDeal",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "Ktrans3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-wave2-gender-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Ktrans2RC),
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Ktrans2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-wave2-gender-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, Ktrans3RC),
  title = "A webshop is trustworthy when you can pay with iDeal",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "Ktrans3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-wave2-edu-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Ktrans2RC),
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Ktrans2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-wave2-edu-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, Ktrans3RC),
  title = "A webshop is trustworthy when you can pay with iDeal",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "Ktrans3RC"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-overtime-overall-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_timeline(
  data = data,
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "Ktrans2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-overtime-overall-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_timeline(
  data = data,
  title = "A webshop is trustworthy when you can pay with iDeal",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "Ktrans3RC"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-overtime-age-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_timeline(
  data = data,
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "Ktrans2RC",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-overtime-age-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_timeline(
  data = data,
  title = "A webshop is trustworthy when you can pay with iDeal",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "Ktrans3RC",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-overtime-gender-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_timeline(
  data = data,
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "Ktrans2RC",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-overtime-gender-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_timeline(
  data = data,
  title = "A webshop is trustworthy when you can pay with iDeal",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "Ktrans3RC",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r ktrans-overtime-edu-item1-2}
# In case of a medical emergency, you make an online appointment with your healthcare provider.
result <- create_timeline(
  data = data,
  title = "In case of a medical emergency, you make an online appointment with your healthcare provider.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "Ktrans2RC",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r ktrans-overtime-edu-item2-2}
# A webshop is trustworthy when you can pay with iDeal
result <- create_timeline(
  data = data,
  title = "A webshop is trustworthy when you can pay with iDeal",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "Ktrans3RC",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph clipboard-text >}} Transactional Performance


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-trans-wave1-overall-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PTS1R),
  title = "Identify trust/safety icon (webshop)",
  questions = "PTS1R",
  question_labels = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-wave1-age-item1-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PTS1R),
  title = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PTS1R"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-wave1-gender-item1-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PTS1R),
  title = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PTS1R"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-wave1-edu-item1-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PTS1R),
  title = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PTS1R"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-trans-wave2-overall-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PTS1R),
  title = "Identify trust/safety icon (webshop)",
  questions = "PTS1R",
  question_labels = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-wave2-age-item1-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PTS1R),
  title = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PTS1R"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-wave2-gender-item1-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PTS1R),
  title = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PTS1R"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-wave2-edu-item1-2}
# Identify trust/safety icon (webshop)
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PTS1R),
  title = "Identify trust/safety icon (webshop)",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Incorrect", "Correct"),
  stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
  stack_order = c("Incorrect", "Correct"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PTS1R"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-overtime-overall-item1-2}
# Identify trust/safety icon (webshop)
result <- create_timeline(
  data = data,
  title = "Identify trust/safety icon (webshop)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PTS1R"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-overtime-age-item1-2}
# Identify trust/safety icon (webshop)
result <- create_timeline(
  data = data,
  title = "Identify trust/safety icon (webshop)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PTS1R",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-overtime-gender-item1-2}
# Identify trust/safety icon (webshop)
result <- create_timeline(
  data = data,
  title = "Identify trust/safety icon (webshop)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PTS1R",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-trans-overtime-edu-item1-2}
# Identify trust/safety icon (webshop)
result <- create_timeline(
  data = data,
  title = "Identify trust/safety icon (webshop)",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PTS1R",
  group_var = "Education"
)

result
```


:::


:::


:::

© 2025 Digital Competence Insights Dashboard - All Rights Reserved

 

dashboardr Powered by dashboardr